home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00047_ID card's birthday 1.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  727 b   |  22 lines
  1. property pSpr
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   dateLocs = [#AT: point(137, 190), #CG: point(136, 180), #EM: point(313, 195), #JF: point(190, 103), #JS: point(151, 348), #KY: point(311, 219), #LC: point(195, 92), #LG: point(140, 184), #LM: point(314, 206), #LN: point(137, 188), #RN: point(313, 294), #TF: point(311, 215), #XF: point(311, 203)]
  6.   pCharCode = currentChar()
  7.   thisChar = string(pCharCode)
  8.   dateLoc = getaProp(dateLocs, pCharCode)
  9.   if voidp(dateLoc) then
  10.     pSpr.visible = 0
  11.     exit
  12.   end if
  13.   pSpr.visible = 1
  14.   pSpr.member.text = formatBirthDate(sprite(getActiveCharacter()).pBirthdate)
  15.   pSpr.member.color = gray()
  16.   pSpr.loc = dateLocs[pCharCode]
  17. end
  18.  
  19. on endSprite
  20.   pSpr.visible = 1
  21. end
  22.